home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 75 / Tiger_Disk_075_20xx_Tiger-Crew-Disk_de_Side_B.d64 / grafix anleitung (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  72 lines
  1. 10 poke53280,12:poke53281,12:print"":gosub10000
  2. 30 print"  [196]as [208]rogramm ist von  [194]rad [212]empleton"
  3. 35 print" und erschien in der [202]uli '83 - [193]usgabe"
  4. 37 print" von '[212]he [212]ransactor'. - [197]s liegt ab   "
  5. 40 print" 49152-49853 ($[195]000-$[195]2[194][196]) im [211]peicher "
  6. 50 print" und ist nicht verschiebbar."
  7. 60 print"  [196]ie ersten fuenfzehn [194]ytes sind jump-"
  8. 70 print" vektoren zu den 5 [203]ommandos. - [211]ie    "
  9. 75 print" beginnen mit 41953. - [197]s kann eine    "
  10. 80 print" [214]ariable wie [194][193] verwendet werden, so  "
  11. 90 print" dass die [194]efehle leicht aufzurufen    "
  12. 95 print" sind.":gosub 9000
  13. 110 print"[160][201]nitialisieren : [211][217][211] 49153 / [211][217][211][160][194][193]":print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  14. 120 print"[160][198]ormat: [211][217][211][160][194][193],[195]0,[195]1,[195]2,[195]3"
  15. 130 print"[160][197]inschalten des [198]arbgraphik-[211]creens   "
  16. 140 print" mit vier [198]arben:"
  17. 150 print"[160][160][160][160][195]0:  [200]intergrund"
  18. 160 print"[160][160][160][160][195]1:  [198]arbe #1"
  19. 170 print"[160][160][160][160][195]2:  [198]arbe #2"
  20. 180 print"[160][160][160][160][195]3:  [198]arb-[206]ybbles"
  21. 190 print"[160][205]it  [211][217][211][160][194][193]  wird der [211]creen geloescht"
  22. 200 print"[160]und die [200]intergrundfarbe gesetzt. [194]ei "
  23. 210 print" weiteren [194]efehlen werden die 4 [198]arben "
  24. 220 print" mit den [218]iffern 0 bis 3 bezeichnet.  ":gosub9000
  25. 300 print" [208]ixel einlesen - [211][217][211] 49156 / [211][217][211] [194][193]+3":print"[160][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  26. 310 print"[160][198]ormat:  [211][217][211] [194][193]+3,[218][197][201][204][197],[198][193][210][194][197]"
  27. 320 print" [197]inlesen des genannten [208]ixels: [198]arbe  "
  28. 330 print"[160]von 0 bis 3 wird an 256 abgelegt und  "
  29. 340 print" kann mit [208][197][197][203] gelesen werden."
  30. 350 print" [208]ixel setzen - [211][217][211] 49159 / [211][217][211] [194][193]+6":print"[160][163][163][163][163][163][163][163][163][163][163][163][163]"
  31. 360 print"[160][198]ormat:  [211][217][211] [194][193]+6,[218][197][201][204][197],[211][208][193][204][212][197],[198][193][210][194][197]"
  32. 370 print"[160][211]etzen eines [208]ixels in der angegebe-  "
  33. 380 print"[160]nenen [198]arbe ([198]arbe 0 zum [204]oeschen     "
  34. 390 print"[160]eines [208]ixels).":gosub9000
  35. 400 print" [212]ext-[205]odus [197][201][206] - [211][217][211] 49162 /"
  36. 405 print"[160][163][163][163][163][163][163][163][163][163][163][163][163][163][163]   [211][217][211][160][194][193]+9"
  37. 410 print" [198]ormat:  [211][217][211][160][194][193]+9 : [208][210][201][206][212] "chr$(34)"[147]"chr$(34)
  38. 420 print" [211]chaltet den normalen [212]ext-[211]creen ein."
  39. 430 print"[160][196]er [211]creen ist voller '[198]arb-[205]uell' von"
  40. 440 print" der [199]raphik, so dass es am besten ist,"
  41. 450 print"[160]die '[211]creen-[204]oeschen'-[193]nweisung mitzu-"
  42. 455 print"[160]verwenden."
  43. 460 print"":gosub9000
  44. 500 print" [218]eichnen - [211][217][211] 49165 / [211][217][211][160][194][193]+12":print" [163][163][163][163][163][163][163][163]"
  45. 510 print"[160][198]ormat:":print"[160][160][160][160][211][217][211][160][194][193]+12,[218]1,[211]1,[218]2,[211]2,[198][193][210][194][197]"
  46. 520 print"[160][218]eichnet eine [204]inie vom [208]unkt [218]1/[211]1 zu"
  47. 530 print"[160]dem [208]unkt [218]2/[211]2 in einer [198]arbe 0 - 3. "
  48. 540 print"[160][215]ie zuvor: [198]arbe 0 loescht die [204]inie. "
  49. 545 print" '[218]' bezeichnet die [218][197][201][204][197],               '[211]'            die [211][208][193][204][212][197]"
  50. 550 print"":gosub9000
  51. 600 print" [199]raphik-[210]outine laden":print"[160][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  52. 610 print"[160][160][213]m die [199]raphik-[210]outine in einem ei-"
  53. 620 print" genen [208]rogramm zu verwenden, kann sie "
  54. 630 print" mit dieser [193]nweisung am [193]nfang eines  "
  55. 640 print" [208]rogramms geladen werden:"
  56. 650 print"   1 [201][198][160][208][197][197][203] 49152<>96 [212][200][197][206][160]"
  57. 655 print"     [160] [204][207][193][196][160]"chr$(34)"[199][210][193][198][201][216][160][210][212][206][211]"chr$(34)",8,1"
  58. 660 print"":gosub9000
  59. 700 printtab(10)"[197]nde der [193]nleitung"
  60. 710 print"       [196]ruecke <[194]> um '[194][207][216]' zu laden"
  61. 720 print"oder"
  62. 730 print"       [196]ruecke <[197]> = [197][206][196][197]":poke53265,27
  63. 750 getg$:ifg$<>"b"andg$<>"e"then750
  64. 780 ifg$="e"thenprint"[147]":end
  65. 800 print"[147]load"chr$(34)"box"chr$(34)",8":print"run";
  66. 810 poke631,13:poke632,13:poke198,2:end
  67. 9000 printtab(10)"[158][194][201][212][212][197] [211][208][193][195][197] [196][210][213][197][195][203][197][206]!":poke53265,27
  68. 9010 geta$:ifa$<>" "then9010
  69. 10000 poke53265,11:print"[147]   [199][160][210][160][193][160][198][160][201][160][216][160] -  [193][160][206][160][204][160][197][160][201][160][212][160][213][160][206][160][199]"
  70. 10010 print"   [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  71. 10020 return
  72.